Option Explicit
Sub L_Sample001()
    'ոL_Data01
    With Worksheets("L_Data01")				'N
        .Activate
        'ᤩƨӷdW
        Intersect(.UsedRange, .Columns("C:H")).Name = "Database"
        .ShowDataForm
    End With
End Sub
